home *** CD-ROM | disk | FTP | other *** search
- /* Handling of packed complex types... not meant for client consumption.
- */
- #ifndef COMPLEX_INTERNAL_H_
- #define COMPLEX_INTERNAL_H_
-
- #define VECTOR(a,stride,i) ((a)[(stride)*(i)])
- #define REAL(a,stride,i) ((a)[2*(stride)*(i)])
- #define IMAG(a,stride,i) ((a)[2*(stride)*(i)+1])
-
- #define REAL0(a) ((a)[0])
- #define IMAG0(a) ((a)[1])
-
-
- #endif /* !COMPLEX_INTERNAL_H_ */
-